home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / sine wave (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  880b  |  20 lines
  1. 10 fort=49152to49327:reada:poket,a:next
  2. 20 poke820,14:rem screen color
  3. 30 k=256:xl=828:yl=830:m=49152:a=90:b=40:c=20
  4. 40 sys49262:rem color/clear
  5. 50 rem max x=255!
  6. 60 forx=0to255step.5
  7. 70 y=int(a+b*sin(x/c))
  8. 80 gosub100:next
  9. 90 goto90
  10. 100 pokexl,x:pokeyl,y:sysm:return
  11. 1000 data169,0,133,254,56,169,199,237,62,3,72,41,248,10,38,254,10,38,254,10,38
  12. 1010 data254,72,141,64,3,165,254,141,65,3,104,10,38,254,10,38,254,109,64,3,133
  13. 1020 data253,165,254,109,65,3,133,254,173,60,3,41,248,101,253,133,253,173,61,3
  14. 1030 data101,254,133,254,104,41,7,101,253,133,253,165,254,105,32,133,254,173,60
  15. 1040 data3,41,7,170,189,101,192,141,63,3,160,0,177,253,13,63,3,145,253,96,128
  16. 1050 data64,32,16,8,4,2,1,80,169,8,13,24,208,141,24,208,169,32,13,17,208,141,17
  17. 1060 data208,169,63,133,216,169,0,133,215,168,145,215,160,63,162,32,145,215,136
  18. 1070 data208,251,198,216,202,208,246,169,4,133,232,169,0,133,231,168,173,52,3
  19. 1080 data162,4,145,231,200,208,251,230,232,202,208,246,96
  20.